home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / octa209s.zip / octave-2.09 / liboctave / filemode.c < prev    next >
C/C++ Source or Header  |  1996-10-30  |  6KB  |  258 lines
  1. /* filemode.c -- make a string describing file modes
  2.    Copyright (C) 1985, 1990, 1993 Free Software Foundation, Inc.
  3.  
  4.    This program is free software; you can redistribute it and/or modify
  5.    it under the terms of the GNU General Public License as published by
  6.    the Free Software Foundation; either version 2, or (at your option)
  7.    any later version.
  8.  
  9.    This program is distributed in the hope that it will be useful,
  10.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12.    GNU General Public License for more details.
  13.  
  14.    You should have received a copy of the GNU General Public License
  15.    along with this program; if not, write to the Free Software
  16.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  17.  
  18. #ifdef HAVE_CONFIG_H
  19. #include <config.h>
  20. #endif
  21.  
  22. #ifdef HAVE_SYS_TYPES_H
  23. #include <sys/types.h>
  24. #endif
  25. #include <sys/stat.h>
  26.  
  27. #if !S_IRUSR
  28. # if S_IREAD
  29. #  define S_IRUSR S_IREAD
  30. # else
  31. #  define S_IRUSR 00400
  32. # endif
  33. #endif
  34.  
  35. #if !S_IWUSR
  36. # if S_IWRITE
  37. #  define S_IWUSR S_IWRITE
  38. # else
  39. #  define S_IWUSR 00200
  40. # endif
  41. #endif
  42.  
  43. #if !S_IXUSR
  44. # if S_IEXEC
  45. #  define S_IXUSR S_IEXEC
  46. # else
  47. #  define S_IXUSR 00100
  48. # endif
  49. #endif
  50.  
  51. #ifdef STAT_MACROS_BROKEN
  52. #undef S_ISBLK
  53. #undef S_ISCHR
  54. #undef S_ISDIR
  55. #undef S_ISFIFO
  56. #undef S_ISLNK
  57. #undef S_ISMPB
  58. #undef S_ISMPC
  59. #undef S_ISNWK
  60. #undef S_ISREG
  61. #undef S_ISSOCK
  62. #endif /* STAT_MACROS_BROKEN.  */
  63.  
  64. #if !defined(S_ISBLK) && defined(S_IFBLK)
  65. #define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK)
  66. #endif
  67. #if !defined(S_ISCHR) && defined(S_IFCHR)
  68. #define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR)
  69. #endif
  70. #if !defined(S_ISDIR) && defined(S_IFDIR)
  71. #define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
  72. #endif
  73. #if !defined(S_ISREG) && defined(S_IFREG)
  74. #define S_ISREG(m) (((m) & S_IFMT) == S_IFREG)
  75. #endif
  76. #if !defined(S_ISFIFO) && defined(S_IFIFO)
  77. #define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO)
  78. #endif
  79. #if !defined(S_ISLNK) && defined(S_IFLNK)
  80. #define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK)
  81. #endif
  82. #if !defined(S_ISSOCK) && defined(S_IFSOCK)
  83. #define S_ISSOCK(m) (((m) & S_IFMT) == S_IFSOCK)
  84. #endif
  85. #if !defined(S_ISMPB) && defined(S_IFMPB) /* V7 */
  86. #define S_ISMPB(m) (((m) & S_IFMT) == S_IFMPB)
  87. #define S_ISMPC(m) (((m) & S_IFMT) == S_IFMPC)
  88. #endif
  89. #if !defined(S_ISNWK) && defined(S_IFNWK) /* HP/UX */
  90. #define S_ISNWK(m) (((m) & S_IFMT) == S_IFNWK)
  91. #endif
  92.  
  93. void mode_string ();
  94. static char ftypelet ();
  95. static void rwx ();
  96. static void setst ();
  97.  
  98. /* filemodestring - fill in string STR with an ls-style ASCII
  99.    representation of the st_mode field of file stats block STATP.
  100.    10 characters are stored in STR; no terminating null is added.
  101.    The characters stored in STR are:
  102.  
  103.    0    File type.  'd' for directory, 'c' for character
  104.     special, 'b' for block special, 'm' for multiplex,
  105.     'l' for symbolic link, 's' for socket, 'p' for fifo,
  106.     '-' for regular, '?' for any other file type
  107.  
  108.    1    'r' if the owner may read, '-' otherwise.
  109.  
  110.    2    'w' if the owner may write, '-' otherwise.
  111.  
  112.    3    'x' if the owner may execute, 's' if the file is
  113.     set-user-id, '-' otherwise.
  114.     'S' if the file is set-user-id, but the execute
  115.     bit isn't set.
  116.  
  117.    4    'r' if group members may read, '-' otherwise.
  118.  
  119.    5    'w' if group members may write, '-' otherwise.
  120.  
  121.    6    'x' if group members may execute, 's' if the file is
  122.     set-group-id, '-' otherwise.
  123.     'S' if it is set-group-id but not executable.
  124.  
  125.    7    'r' if any user may read, '-' otherwise.
  126.  
  127.    8    'w' if any user may write, '-' otherwise.
  128.  
  129.    9    'x' if any user may execute, 't' if the file is "sticky"
  130.     (will be retained in swap space after execution), '-'
  131.     otherwise.
  132.     'T' if the file is sticky but not executable.  */
  133.  
  134. void
  135. filemodestring (statp, str)
  136.      struct stat *statp;
  137.      char *str;
  138. {
  139.   mode_string (statp->st_mode, str);
  140. }
  141.  
  142. /* Like filemodestring, but only the relevant part of the `struct stat'
  143.    is given as an argument.  */
  144.  
  145. void
  146. mode_string (mode, str)
  147.      unsigned short mode;
  148.      char *str;
  149. {
  150.   str[0] = ftypelet ((long) mode);
  151.   rwx ((mode & 0700) << 0, &str[1]);
  152.   rwx ((mode & 0070) << 3, &str[4]);
  153.   rwx ((mode & 0007) << 6, &str[7]);
  154.   setst (mode, str);
  155. }
  156.  
  157. /* Return a character indicating the type of file described by
  158.    file mode BITS:
  159.    'd' for directories
  160.    'b' for block special files
  161.    'c' for character special files
  162.    'm' for multiplexor files
  163.    'l' for symbolic links
  164.    's' for sockets
  165.    'p' for fifos
  166.    '-' for regular files
  167.    '?' for any other file type.  */
  168.  
  169. static char
  170. ftypelet (bits)
  171.      long bits;
  172. {
  173. #ifdef S_ISBLK
  174.   if (S_ISBLK (bits))
  175.     return 'b';
  176. #endif
  177.   if (S_ISCHR (bits))
  178.     return 'c';
  179.   if (S_ISDIR (bits))
  180.     return 'd';
  181.   if (S_ISREG (bits))
  182.     return '-';
  183. #ifdef S_ISFIFO
  184.   if (S_ISFIFO (bits))
  185.     return 'p';
  186. #endif
  187. #ifdef S_ISLNK
  188.   if (S_ISLNK (bits))
  189.     return 'l';
  190. #endif
  191. #ifdef S_ISSOCK
  192.   if (S_ISSOCK (bits))
  193.     return 's';
  194. #endif
  195. #ifdef S_ISMPC
  196.   if (S_ISMPC (bits))
  197.     return 'm';
  198. #endif
  199. #ifdef S_ISNWK
  200.   if (S_ISNWK (bits))
  201.     return 'n';
  202. #endif
  203.   return '?';
  204. }
  205.  
  206. /* Look at read, write, and execute bits in BITS and set
  207.    flags in CHARS accordingly.  */
  208.  
  209. static void
  210. rwx (bits, chars)
  211.      unsigned short bits;
  212.      char *chars;
  213. {
  214.   chars[0] = (bits & S_IRUSR) ? 'r' : '-';
  215.   chars[1] = (bits & S_IWUSR) ? 'w' : '-';
  216.   chars[2] = (bits & S_IXUSR) ? 'x' : '-';
  217. }
  218.  
  219. /* Set the 's' and 't' flags in file attributes string CHARS,
  220.    according to the file mode BITS.  */
  221.  
  222. static void
  223. setst (bits, chars)
  224.      unsigned short bits;
  225.      char *chars;
  226. {
  227. #ifdef S_ISUID
  228.   if (bits & S_ISUID)
  229.     {
  230.       if (chars[3] != 'x')
  231.     /* Set-uid, but not executable by owner.  */
  232.     chars[3] = 'S';
  233.       else
  234.     chars[3] = 's';
  235.     }
  236. #endif
  237. #ifdef S_ISGID
  238.   if (bits & S_ISGID)
  239.     {
  240.       if (chars[6] != 'x')
  241.     /* Set-gid, but not executable by group.  */
  242.     chars[6] = 'S';
  243.       else
  244.     chars[6] = 's';
  245.     }
  246. #endif
  247. #ifdef S_ISVTX
  248.   if (bits & S_ISVTX)
  249.     {
  250.       if (chars[9] != 'x')
  251.     /* Sticky, but not executable by others.  */
  252.     chars[9] = 'T';
  253.       else
  254.     chars[9] = 't';
  255.     }
  256. #endif
  257. }
  258.